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In diretta dalla HIT 
PARADE inglese 

Ogni mese in edicola una 
cassetta con un videoga¬ 
me originale, diretta- 
mente dall’Inghilterra, 
scelto tra quelli che si 
trovano in vetta alle clas¬ 
sifiche. 

Insieme al programma 
una recensione accurata 
ed approfondita con 
consigli di un supere¬ 
sperto per diventare dei 
campioni. Ma oltre al gio¬ 
co, una serie di listati da 
battere direttamente sul 
vostro Commodore 64 e 
poi notizie dal mondo dei 
computer e la posta dei 
lettori. 

Questo è Jackson Super 
Soft: una pubblicazione 
unica perché ogni pro¬ 
gramma è il meglio che si 
può trovare sul mercato, 
perché le recensioni sono 
vere e proprie guide al 
gioco, perché i listati so¬ 
no autentici. 
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NOTIZIE 


EXPRESS, PER RENDERE IL VOSTRO DRIVE 
VELOCE COME UN TRENO 


Il Commodore 64 non è cer¬ 
to il massimo nella gestione 
del drive. Non a caso lo svi¬ 
luppo di questa periferica è 
stato molto ritadato rispetto 
all’eccezionale boom della 
consolle. 

Certamente i vantaggi ri¬ 
spetto al registratore a cas¬ 
sette sono notevoli e quindi 
molte case di software han¬ 
no realizzato una serie di 
cartridge per eliminare i di¬ 
fetti del sistema operativo e 


della lentezza del drive. Un 
valido prodotto è sicura¬ 
mente la Express System, 
realizzata dalla Mastertro- 
nic italiana. Caricamento 5 
volte più veloce del 99% del 
software e una serie di co¬ 
mandi aggiuntivi sono le 
principali caratteristiche 
dell'Express System. 

Pensate che una volta inse¬ 
rita la cartuccia potete ri¬ 
chiamare la directory pre¬ 
mendo il tasto funzione FI e 


caricare automaticamente 
un programma con il tasto 
F5.1 comandi sono molti al¬ 
tri tutti studiati per una ve¬ 
loce gestione dei dati su di¬ 
sco senza noiose istruzioni 
e comandi da digitare. 
Express System viene ven¬ 
duta a 490000 Lire e vi assi¬ 
curiamo che il caricamento 
veloce è garantito e verifica¬ 
to al 100%. 


PER GLI HARD WARI STI 


Avete mai pensato alla pos¬ 
sibilità di utilizzare i com¬ 
puter per controllare un’in¬ 
segna rotante oppure il 
Commodore 64 per fare au¬ 
tomaticamente chiamate te¬ 
lefoniche. 

E poi cosa ne dite di co¬ 
struirvi un modem oppure 
una light pen con poche mi¬ 
gliaia di lire? 

Queste e molte altre sono le 
interessanti applicazioni 
che possono essere realizza¬ 
te con il libro COMPUTER 
HARDWARE di Angelo Cat¬ 
taneo e Piero Todorovich. 
Questo libro è una pubblica¬ 
zione atipica nel settore 
deH’informatica ed ha il 
principale obiettivo di aiuta¬ 
re l’utente ad un utilizzo 
pratico del computer. 

Con uno spirito hobbistico 
tipico più dei primi posses¬ 
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sori di un computer, il Sin¬ 
clair ZX tanto per fare un 
esempio, che degli attuali 
utenti, COMPUTER HAR¬ 
DWARE vi aiuta a costruirvi 
comode interfaccie. Oltre al¬ 
la soddisfazione di realizza¬ 
re qualcosa con le vostre 
mani, risparmierete una 
bella somma, considerati gli 
alti prezzi delle interfaccie 
realizzate da ditte specializ¬ 
zate. 

Le realizzazioni rivolte ai 
cinque computer più diffusi, 
Commodore 64 compreso 
naturalmente, sono com¬ 
mentate ed illustrate da 
chiari disegni del relativo 
schema elettrico e del cir¬ 
cuito stampato. Non manca 
anche una parte introdutti¬ 
va per i neofiti di guida alla 
realizzazione di un circuito 
stampato. 


TITOLO: COMPUTER HAR¬ 
DWARE 

AUTORI: Angelo Cattaneo e 
Piero Todorovich 
PREZZO: 13000 Lire 














GUIDA ALL’INPUT C64 


TABELLA 

DI CONVERSIONE 

{HOME}. 

..HOME 

{CLR }. 

..POLIZIA SCHERMO 

{CUR.SU}. 

..CURSORE IN ALTO 

{CUR.GIU}_ 

..CURSORE IN BASSO 

{CUR.DES}_ 

..CURSORE A DESTRA 

(CUR .SIN} . . . . 

..CURSORE A SINISTRA 

{SPC }. 

..SPAZIO 

{RVS ON}. 

. .REVERSE ON 

{RVS OFF } . . .. 

. .REVERSE OFF 

{INST }. 

. . INSERT 

{FI }-.*- 

. .TASTO .FI 

{ F2 }. 

. -TASTO F2 

{F3 }. 

..TASTO F3 

{ F 4 }. 

..TASTO F4 

{ F5 }. 

..TASTO F5 

{ F 6 }. 

. .TASTO F6* 

{ F7 }. 

..TASTO F7 

{F8}. 

. . TASTO F8 

{BLACK }. 

. .COL . NERO (CTRL-*-1 ) 

{WHITE} .'. 

..COL. BIANCO (CTRL+2) 

{RED }. 

..COL. ROSSO (CTRL+3) 

{ C YAN }. 

..COL. CIANO (CT RL♦4 ) 

{PURPLE }. 

..COL. PORPORA (CT RL♦5 ) 

{GREEN }. 

..COL. VERDE (CTRL+6) 

{BLUE }. 

. .COL . BLU ( CT RL 7 ) 

{YELLOW}. 

..COL. GIALLO ( CT RL 8 ) 

{ORANGE }. 

. .COL. ARANCIO (CBM+1 ) 

{BROWN}. 

..COL. MARRONE (CBM+2) 

{LT.RED }. 

..COL. ROSSO CHIARO (CBM+3) 

{CRAY 1 }. 

..COL. GRIGIO 1 (CBM+4) 

{GRAY2 }. 

.COL. GRIGIO 2 (CBM + 5 ) 

{LT.GREEN} . . . 

..COL. VERDE CHIARO (CBM+6) 

{LT.BLUE } . . . . 

..COL. BLU CHIARO (CBM+7) 

(GR A Y 3 }. 

.COL. GRIGIO 3 (C BM + 8 ) 


Norme per la 
battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift” e “CBM”, sono codifi¬ 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift" o “CBM”. Es. il cuori¬ 
cino è codificato con >SH 
S <. Il numero dentro le pa¬ 
rentesi indica le volte che il 
tasto va premuto. 
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Un nuovo record si è inseri¬ 
to nel lungo elenco dei pun¬ 
teggi di QUO VAUIS. 

Luciano Renaudo è riuscito 
a raggiungere l’eccezionale 
punteggio di 3.051.300. 
Bisogna dire che finalmente 
i lettori si sono scatenati e 
dopo un periodo di attesa 
numerosi sono quelli che so¬ 
no riusciti a risolvere Pyja- 


marama e sono arrivate le 
prime fotografie riguardan¬ 
ti Herhert's Dummy. 

Questo mese il premio sim¬ 
patia va attirbuito a Stefano 
e Maurizio Stroili di Novara. 
Oltre ad aver raggiunto il 
numero di 99 babies ci han¬ 
no sommerso di fotografie 
con la successione delle vi- 
deate della fase finale. 


I complimenti comunque 
vanno anche a Gianluca 
Franceschini di Roma e a 
Zanini Alessandro di Suzza- 
ra in provincia di Mantova, 
ambedue velocissimi a tro¬ 
vare i genitori del piccolo 
Herbert e raccogliere il 99% 
delle Jelly Babies. 


GIOGO 

PUNTEGGIO 

COGNOME E NOME 

CITTÀ 

PROV 

AUTOMAN IA 

44.323 

GABRIELLI GIOVANNI 

SERRAVALL 

AR 

AUTOMAN LA 

36.929 

MANTELLINO SERGIO 

SALERNO 

SA 

AUTOMAN LA. 

7.932 

SUCCIO FAUSTO 

SESTRI PO 

GE 

GIOCO 

PUNTEGGIO 

COGNOME E NOME 

CITTÀ 

PROV 

PYJAMARAMA 

100% 

DAMANTI MARCO 

GENOVA 

GE 

PYJAMARAMA 

100% 

LEONE MANUEL 

VERCELLI 

ve 

PYJAMARAMA 

100% 

LELLI SERGIO 

MACOMER 

NU 

PYJAMARAMA 

100% 

FALCAI LUCA 

ASCIANO 

SI 

PYJAMARAMA 

100% 

GABRIELLI GIOVANNI 

SERRAVALL 

AR 

PYJAMARAMA 

100% 

TERNELLI MASSIMO 

COMO 

CO 

PYJAMARAMA 

100% 

NEZZI FABIO 

GENOVA 

GE 

PYJAMARAMA 

100% 

LESUISSE PATRICK fi? GLANN 

LAMADDAL 

SS 

PYJAMARAMA 

97% 

MANTELLINO SERGIO 

SALERNO 

SA 

PYJAMARAMA 

96% 

BRUZZI MASSIMO 

ORVIETO 

TR 

PYJAMARAMA 

79% 

NESPOLI LUCA 

CARONNO P 

VA 

PYJAMARAMA 

78% 

SUCCIO FAUSTO 

SESTRI PO 

GE 
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GIOCO 

PUNTEGGIO 

COGNOME E NOME 

CITTÀ 

PROV 

QUO VADIS 

3.051.300 

RENAUDO LUCIANO 

CUNEO 

CN 

QUO VADIS 

3.036.300 

CATALANO MASSIMO 

LAZIO 

TO 

QUO VADIS 

2.975.200 

BREMBILLA ANDREA 

COMO 

CO 

QUO VADIS 

2.895.600 

PUZZILLI LUCA 

TIVOLI 

RM 

QUO VADIS 

2.783.500 

GABRIELLI GIOVANNI 

SERRAVALL 

AR 

QUO VADIS 

2.745.300 

D’ANGELO ROBERTO 

TIVOLI 

RM 

QUO VADIS 

2.479.600 

GAUDOSIO MAURIZIO 

BARI 

BA 

QUO VADIS 

1.970.700 

VIANELLO LUIGI 

VENEZIA 

VE 

QUO VADIS 

1.854.400 

ESPOSITO MARCO 

NAPOLI 

NA 

QUO VADIS 

1.789.700 

SIMONETTI ROBERTO 

CASORIA 

NA 

QUO VADIS 

1.656.300 

SALANI FABRIZIO 

CANDELO 

ve 

QUO VADIS 

1.546.000 

AMENDOLAGINE GIANNI 

S. SPIRITO 

BA 

QUO VADIS 

1.515.100 

MARCHINI DANIELE 

VIGEVANO 

PV 

QUO VADIS 

1.488.300 

GASPARLI STEFANO 

MILANO 

MI 

QUO VADIS 

1.461.600 

VACCA GIOVANNI 

ALBA 

CN 

QUO VADIS 

1.359.500 

CIANCIOLO ROBERTO 

TRIESTE 

TS 

QUO VADIS 

1.353.100 

BOLDORINI STEFANO 

MILANO 

MI 

QUO VADIS 

1.246.100 

PAGANO RAFFAELE 

NAPOLI 

NA 

QUO VADIS 

1.182.000 

BRUZZI MASSIMO 

ORVIETO 

TR 

QUO VADIS 

1.163.100 

QUARANTA VINCENZO 

GIUGLIANO 

NA 

QUO VADIS 

1.137.400 

CALORIO MICHELE 

TORINO 

TO 

QUO VADIS 

1.134.700 

CALORIO MICHELE 

TORINO 

TO 

QUO VADIS 

1.074.500 

SANTINI DANIELE 

RAPALLO 

GE 

QUO VADIS 

1.057.400 

D’UGO ANGELO 

CASALECCH 

BO 

QUO VADIS 

631.000 

SANTI DANIELE 

CODROIPO 

UD 

QUO VADIS 

583.900 

SIRAGUSA ALFREDO 

ROMA 

RM 

QUO VADIS 

378.800 

PELLIZZARI EDDY 

FORTOGNA 

BL 

QUO VADIS 

197.400 

PILLA ALESSANDRO 

RHO 

MI 

QUO VADIS 

141.450 

DI VITTORIO NICOLA 

CASAPESEN 

RM 

QUO VADIS 

5.550 

MANCUSO ELIO 

ROMA 

RM 
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Questo mese Super Soft vi presenta un war-game, gioco di 
simulazione di guerra, derivato dalla Battaglia d Inghilterra. 
Il gioco, realizzato con la consulenza di Michael Fopp, ex- 
curatore del museo di Heldon sulla Battaglia d Inghilterra, 
dalla Pss, una delle software house specializzate in questo 
genere, vi vede al controllo del Fighter Comand durante 
Finvasione dei Tedeschi. Ma prima di vedere nei dettagli il 
gioco ci sembra giusto ricordarvi cosa avvenne storicamente. 
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LA BATTAGLIA D'INGHILTERRA 


La storia 

Una delle fasi più drammati¬ 
che e decisive della Seconda 
Guerra Mondiale fu indub¬ 
biamente la Battaglia d’In¬ 
ghilterra. Nell’estate del 
1940 i Tedeschi erano redu¬ 
ci da una vittoria sull’ercito 
anglo-francese ed erano riu¬ 
sciti ad occupare la Francia. 
Gli Inglesi erano riusciti a 
portare in salvo quasi tutto 
l’esercito con una dramma¬ 
tica e spettacolare ritirata 
dalle spiaggie di Dunkerque 
evitando così una clamorosa 
e molto probabilmente defi¬ 
nitiva sconfitta. 

In quell’occasione Hitler si 


fece sfuggire l’occasione di 
mettere ko l’ultimo suo av¬ 
versario. 

Durante la ritirata l’esercito 
britannico aveva perduto 
numerose armi anche se la 
maggior parte dei suoi uo¬ 
mini era stato riportato in 
patria. 

L’Inghilterra, ormai isolata 
ed a pezzi poteva contare so¬ 
lo sulla difesa naturale della 
Manica, sulla Home Fleet 
ancora imbattuta e sulla 
Raf, l’aviazione britannica. 
Un eventuale invasione dei 
Tedeschi molto probabil¬ 
mente avrebbe avuto molte 
probabilità di successo. 


La Germania tentò di prepa¬ 
rare il piano d’invasione 
conquistando in un primo 
momento la supremazia ae¬ 
rea. 

Ai primi di Agosto del 1940, 
la Luftwaffe, sferrò un tre¬ 
mendo attacco aereo con gli 
Stukas e i Messerschmidt 
contro convogli e città nel 
tentativo di diminuire la ca¬ 
pacità produttiva inglese. 

L’aviazione inglese utilizzò 
gli Hurricane e gli Spitfire. 

Il tentativo tedesco fallì gra¬ 
zie all’eccezionale valore dei 
piloti della Raf, all’intelli¬ 
genza del Fighter Command, 
all’utilizzo dei radar ed alla 
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capacità di resistenza del 
popolo britannico agli insi¬ 
stenti blitz dei bombardieri 
del Terzo Reich. 

La sconfitta della Luftwaffe 
ad opera della Raf determi¬ 
nò l’annullamento dell’ope¬ 
razione di invasione Sea- 
lion. 


Il gioco 

Come detto il gioco simula la 
sala di comando del Fighter 
Comand; di fronte a vuoi 
avete lo schermo della situa¬ 
zione con indicati i vari mo¬ 
vimenti delle squadriglie 
sulla sagoma dell’isola. 

In pratica, utilizzando un 
cursore inviate gli ordini ai 
vari aeroporti ed analizzate 
la consistenza degli attacchi 
avversari. 

La particolarità di Battaglia 
d’Inghilterra è anche la pos¬ 
sibilità, oltre che di coman¬ 
dare tutte le operazioni, di 
provare anche l’emozione di 
un pilota della Raf oppure di 
un soldato dell’antiaerea 
nell’affrontare direttamente 
gli aerei della Luftwaffe. 
Battaglia d’Inghilterra offre 
diverse possibilità di gioco. 
Iniziamo dal menu princi¬ 
pale che prevede 4 opzioni. 

Selezione della 
sequenza arcade 

Premendo il pulsante 1 po¬ 
tete scegliere tra giocare 
con o senza l’azione. 

Nel primo caso, quando ap¬ 
pare la scritta Seleziona 

IO 


Battaglia durante il gioco, 
dovete muovere il cursore 
sul simbolo che lampeggia; 
in questo modo apparirà lo 
scenario dello scontro. Vo¬ 
lendo potete evitare la se¬ 
quenza arcade premendo la 
barra spaziatrice oppure il 
pulsante di sparo con il cur¬ 
sore in qualsiasi altro punto 
dello schermo. 

Con l’azione, il gioco e meno 
frenetico e le arcade sequen¬ 
ze vi danno la possibilità di 
causare forti perdite ai ne¬ 
mici. Senza questa opzione 
il gioco è molto più veloce, 
impegnativo ed in un certo 
senso i risultati più casuali. 


Selezione del gioco 

Avete la possibilità di sce¬ 
gliere tra tre differenti tipi 
di “battaglia”. 

Premendo il tasto 2 affron¬ 
tate il gioco più semplice 


chiamato “Allenamento” e 
studiato appositamente per 
aiutarvi a comprendere il 
meccanismo del gioco e 
quindi poter affrontare con 
più sicurezza i livelli più im¬ 
pegnativi. 

Il tasto 3 corrisponde forse 
al gioco più difficile, “il Bli- 
tzkreig”. La durata della 
campagna è di un solo gior¬ 
no ed ha una intensità mici¬ 
diale. La Luftwaffe è stata 
programmata per impe¬ 
gnarvi al massimo con una 
serie continua di attacchi 
massicci. 

Il terzo gioco è il più classi¬ 
co e completo. La “Campa¬ 
gna” (tasto 4), riproduce lo 
svolgimento della battaglia 
iniziata nell’Agosto del 
1940. La durata di quello 
scontro fu di 54 giorni. Il 
gioco è stato studiato col 
criterio di riuscire a ripro¬ 
durre il più fedelmente pos¬ 
sibile la strategia utilizzata 
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dalla Luftwaffe. Alcune mo¬ 
difiche sono state comunque 
fatte per aumentare la gio- 
cabilità di Battaglia d’In¬ 
ghilterra. Per esempio la du¬ 
rata della battaglia è stata 
concentrata in un mese i 
programmatori del gioco 
hanno ridotto le fasi della 
battaglia da 5 a tre, (2,3 & 
4), e raddoppiato il numero 
degli attacchi. 

Ancora storia 

Per i più diligenti ecco una 
breve ricostruzione storica 
strategica di quella batta¬ 
glia; 


Prima Fase (8-18 Agosto) 

Il primo attacco avvenne l’8, 
quando i Tedeschi colpirono 
senza successo con 200 ae¬ 
rei due convogli inglesi sul¬ 
la Manica. Per 10 giorni il 
principale obiettivo dell’a¬ 
viazione di Goering furono 
poi i porti e le basi aeree 
sulla costa meridionale. 

L’apice dell’incursione fu 
tra il 16 ed il 18 Agosto 
quando furono impiegati 
ben 500 aeroplani. 

La tattica era quella di fare 
decollare gli aerei inglesi 
mediante attacchi diversivi 
e quindi lanciare l’offensiva 
maggiore trenta quaranta 


minuti dopo. 

Seconda Fase (19 Agosto - 5 
Settembre) 

In questo periodo la Lu¬ 
ftwaffe tentò di pareggiare 
le forti perdite subite nel pe¬ 
riodo precedente aumentan¬ 
do il numero dei caccia ri¬ 
spetto ai bombardieri ed at¬ 
taccando i principali aero¬ 
porti. 

Terza Fase (6 Settembre - 5 
Ottobre) 

Di fronte alle nuove nume¬ 
rose perdite i Tedeschi pun¬ 
tarono su Londra con sfian¬ 
canti e tremendi bombarda- 
menti diurni. La giornata 
“storica” fu il 15 settembre, 
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RINFORZI RAF 
ABILITA PILOTI-OTTIMA 


RISERVA- 0 


SQUAD. 

66 

74 

242 


689 IH 


TIPO 

SPITFIRE 
SPITFIRE 
HURRI CANE 
SPI TEIRE 


87 HURRI CANE 

213 HURRICANE 

602 SPITFIRE 
17 HURRICONE 

43 HURR1CANE 
1 HURRICAHE 

79 HURRICAHE 
501 HURRICANE 
54 SPITFIRE 
111 HURRICAHE 

257 HURRICANE 
19 SPITFIRE 
310 HURRICANE 


AEROP. 

COLTISHALL 

COLTISHALL 

COLTISHALL 

MIDDLE HALLOP 

MIDDLE HALLOP 

MIDDLE HALLOP 

MIDDLE HALLOP 

TAHGMERE 

TANGMERE 

TANGMERE 

NORTHOLT 

BIGGIN HILL 

8I66IN HILL 

HORNCHURCH 

DE8DEN 

DEBDEN 

DUXFORD 

DUXFORD 


NUM. 

11 

10 

10 

13 

tt 

11 

10 

11 

15 

13 

12 

15 

10 

10 

11 

15 

12 


RAPPORTO SEGRETO. 


AGO.16 21.40 


PERO. RAF 101 

PERO. LUFTHAFFE 160 

SUCCESSI ATTACHI LUFTHAFFE 13 

ABILITA 48X 

DECOLLI RAF 23 IHTERCETTAM. 10 
LUFTHAFFE RESPINTA 0 

VALUTAZIONE COMANDO 49X 


quando 500 apparecchi, in 
due ondate, attaccarono la 
capitale. 

Quarta fase (6-31 Ottobre) 

Il 6 ottobre cessarono i 
bombardamenti diurni su 
Londra ed iniziarono quelli 
notturni. Le perdite per la 
Luftwaffe continuavano ad 
essere notevoli con un rap¬ 
porto di uno a 2 in favore 
della RAF. 

Alla fine di Ottobre la guer¬ 
ra lampo che doveva spiana¬ 
re la strada all’operazione 
d’invasione della Gran Bre¬ 
tagna denominata Leone 
Marino (Sealion) fu annul¬ 
lata. 

Più avanti vi faremo una 
breve cronistoria di quella 
campagna. 

Considerata la durata e la 
durezza di questo gioco e 
prevista anche la possibilità 
di salvare i dati al termine 
di ogni giorno grazie ad un 
menu chiamato “Menu Cam¬ 
pagna” a 5 opzioni. 


Load & Save 

Per salvare il gioco dovete 
premere il tasto 2 e quindi, 
dopo aver inserito la casset¬ 
ta nel registratore, premete 
il tasto C sulla tastiera e 
quindi i tasti Play e Record 
del registratore. 

Per caricare un gioco prece¬ 
dentemente salvato premete 
il pulsante 1 e quindi, dopo 
avere inserito la cassetta 
contenente i dati del gioco 
salvato, premete C e quindi 

11 tasto Play del registra¬ 
tore. 

12 


Il tasto 3 del menu vi per¬ 
mette di iniziare il gioco op¬ 
pure proseguire nel giorno 
successivo. 

Il gioco può essere affronta¬ 
to a 3 diverse velocità. Pre¬ 
mendo il pulsante 4 modifi¬ 
cate questo valore. Il 3 cor¬ 
risponde al più veloce men¬ 


tre l’uno al più lento. 

Con il tasto 5 potete tornare 
al menu principale. 

Lo schermo 

Come già accennato lo 
schermo principale simula 
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la mappa delle operazioni 
del Fighter Comand con evi¬ 
denziate la parte meridiona¬ 
le della Gran Bretagna ed 
una piccola parte della 
Francia. 

La linea superiore dello 
schermo è utilizzata per i 
messaggi. La loro comparsa 
è segnalata da un suono di 
avvertimento diverso a se¬ 
conda del tipo di messaggio. 
La seconda linea del diplay 
ha due differenti funzioni. 

La metà sinistra riguarda i 
dati corrispondenti alla po¬ 
sizione del cursore che pos¬ 
sono essere il numero delle 
perdite della Raf e della Lu- 
ftwaffe oppure il nome del 
simbolo. 

La metà destra invece vi in¬ 
dica la data e l’ora. 

Il “cuore" del gioco è il pic¬ 
colo quadrato bianco co¬ 
mandato dal joystick e chia¬ 
mato cursore che vi permet¬ 
te di ottenere informazioni 
ed inviare gli ordini alle vo¬ 
stre unità. 

Il joystick deve essere colle¬ 
gato nella porta 2. 

In un rettangolino nella 
parte sinistra dello schermo 
noterete delle abbreviazioni 
che corrispondono ad alcuni 
dati riguardanti le varie 
squadriglie della RAF e della 
Luftwaffe quando sono evi¬ 
denziate dal cursore. 
Vediamo in dettaglio il loro 
significato. 

CAC (Caccia): corrisponde 
al numero degli aerei da cac¬ 
cia di una squadriglia. 

BMB (bombardieri): questo 
numero appare solo quando 
una squadriglia si trova so¬ 


pra la Gran Bretagna e rap¬ 
presenta il numero dei bom¬ 
bardieri di una unità della 
Luftwaffe. 

CAR (Carburate): mostra la 
quantità di carburante di 
una unità della Raf. Tutte 
decollano dall’aeroporto con 
115 minuti di tempo di volo. 
Durante il combattimento il 
consumo di carburante è 
maggiore. 

Quando mancano 30 minuti 
di volo compare una scritta 
che vi avverte della riserva 
ed il simbolo della squadri¬ 
glia perde il punto centrale. 
Se una unità termina il car¬ 
burante sopra la Gran Bre¬ 
tagna potrà essere recupe¬ 
rato nel giorno successivo. 
In pratica è come se fosse 
costretta ad un atterraggio 
d’emergenza. Se questo av¬ 
viene sul mare oppure sopra 
la Francia perderete defini¬ 
tivamente la squadriglia. 
MUN (Munizioni): il valore 
riguarda solo la RAF e può 
essere 1 o 0. Se è 1 quell’uni¬ 
tà è armata e pronta ad af¬ 
frontare un attacco. Se è 0 
invece dovrete atterrare per 
fare rifornimento di muni¬ 
zioni. 

RAD (Radar): vi comunica il 
numero totale degli aeropla¬ 
ni nemici mentre sorvolano 
il mare nel raggio d’azione 
dei radar. 

Sulla cartina noterete una 
serie di simboli standard. 


Le città 

Sono 15 le città rappresen¬ 
tate da punti più o meno 


grossi di colore arancione. 
Sono comprese tra quella 
più a nord, Derby, fino a Fol¬ 
kestone e Plymouth, rispet¬ 
tivamente all’estremo sud 
est e sud ovest. 


Le stazioni radar 

I simboli che indicano le 13 
stazioni radar sono una spe¬ 
cie di U gialla. Sono installa¬ 
te lungo tutta la costa e per¬ 
mettono l’identificazione 
delle pattuglie nemiche. 
Premendo il tasto R verifi¬ 
cherete il funzionamento 
del radar: se una stazione è 
stata danneggiata da un at¬ 
tacco nemico, l’area corri¬ 
spondente non diventa ver¬ 
de. Se posizionte il cursore 
sopra la stazione danneg¬ 
giata vedrete il suo nome in 
rosso. 

La messa fuori uso di un ra¬ 
dar non vi permette l’identi¬ 
ficazione di una squadriglia 
della Luftwaffe oltre mani¬ 
ca. Questo sarà possibile so¬ 
lo con i radar della unità in 
volo della Raf. 

L’utilizzo del radar è stato 
uno dei segreti della vittoria 
inglese. In ogni caso in “Bat¬ 
taglia d’Inghilterra” la Lu¬ 
ftwaffe bombarda molto più 
intensamente le stazioni ra¬ 
dar rispetto a quanto accad¬ 
de in realtà. 


Gli aeroporti 

Le X verdi corrispondono 
agli aeroporti. Sono 9 le basi 
militri situate in tutto il ter¬ 
ritorio. Coltishall si trova 
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nei pressi di Norwich, ed è 
quello più a Nord. Middle 
Wallop invece è quello più a 
Sud, vicino a Southampton. 
Anche in questo caso gli ae¬ 
roporti sono molto più vul¬ 
nerabili durante il gioco di 
quanto effettivamente av¬ 
venne in realtà. (Se esclu¬ 
diamo quello di Manston, 
nessun aeroporto fu distrut¬ 
to). 

Quando un aeroporto non è 
in funzione o per la nebbia 
(FOG) o perché bombardato, 
il suo nome, quando è evi¬ 
denziato dal cursore, appare 
in rosso. Se la scritta è gial¬ 
la, significa che è solo dan¬ 
neggiato e quindi utilizza¬ 
bile. 


Le squadriglie 

Anche il numero delle squa¬ 
driglie non è fedele a quello 
della realtà. Questo è stato 
fatto per rendere il gioco più 
entusiasmante. 

All’inizio di ogni gioco le vo¬ 


stre squadriglie sono così 
dislocate: 

Movimenti e 
comandi 

Oltre ad esaminare la situa¬ 
zione, il cursore serve anche 
per inviare i vari comandi 
alle squadriglie. 

Per fare decollare una squa¬ 
driglia muovete il cursore 
sopra un aeroporto e quindi 
premete il pulsante di spa¬ 
ro. In questo modo vi appare 

10 schermo dell’aeroporto: 
in alto, sotto il suo nome, 
avete la situazione che può 
essere in funzione oppure 
chiuso. Sotto avete l’elenco 
delle squadriglie, con nume¬ 
ro e tipo di aereo ed a fianco 

11 loro stato che può essere 
in volo, pronto per il decollo 
oppure in rifornimento. Nel¬ 
la parte bassa vi viene indi¬ 
cato lo stato della pista che 
può essere perfetta, danneg¬ 
giata oppure distrutta. In 
questo caso l’aeroporto sarà 


AEROPORTO 

SQUADRIGLIA 

AEREO 

Middle Wallop: 

234-609 

Spitfire 


87-213 

Hurricane 

Tangmere: 

602 

Spitfire 


17-43 

Hurricane 

Northolt: 

1 

Hurricane 

Biggin Hill: 

79-501 

Hurricane 

Hornchurch: 

54 

Spitfire 

Debden: 

111-257 

Hurricane 

Duxford: 

19 

Spitfire 


310 

Hurricane 

Coltishall: 

66-74 

Spitfire 


242 

Hurricane 


inutilizzabile. Infine avete 
le condizioni del tempo. In 
caso di pioggia intensa le 
operazioni di rifornimento 
saranno più lunghe del soli¬ 
to. La nebbia causa la tem¬ 
poranea chiusura dell’aero¬ 
porto. 

Per far decollare una squa¬ 
driglia dovete muovere la 
freccia con il joystick sulla 
pattuglia desiderata e quin¬ 
di premere il pulsante di 
sparo. Se volete abbandona¬ 
re questo schermo senza or¬ 
dinare nessun decollo, muo¬ 
vete il joystick a destra o a 
sinistra. 

Per muovere una squadri¬ 
glia posizionate il cursore 
sopra il suo simbolo rosso e 
quindi premete il pulsante 
di sparo. Il quadrato si tra¬ 
sformerà in una croce; sem¬ 
pre con il joystick muovete¬ 
la nel punto dove volete che 
la squadriglia si diriga e 
quindi premete nuovamente 
il pulsante. La croce diven¬ 
terà nuovamente un quadra¬ 
to e gli aerei si dirigeranno 
verso quel punto. 

In ogni momento potete ve¬ 
rificare la destinazione di 
una vostra unità. È suffi¬ 
ciente muovere il cursore 
sopra il simbolo: automati¬ 
camente appare una croce 
verde lampeggiante in corri¬ 
spondenza della destina¬ 
zione. 

Per fare atterrare una unità 
è sufficiente muovere la cro¬ 
ce su un aeroporto. Nel caso 
l’aeroporto fosse distrutto, 
oppure chiuso per nebbia 
oppure completo non sarà 
possibile atterrare. 
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Per mettere il gioco in PAU¬ 
SA premete il tasto P. In 
questo modo potete anche 
muovere il cursore ed esa¬ 
minare a fondo la situazione 
riuscendo così a riflettere 
maggiormente sui movi¬ 
menti da fare. 

Per riprendere il goco pre¬ 
mete nuovamente il tasto P. 
Per terminare il gioco e ri¬ 
tornare in qualsiasi momen¬ 
to (escluso durante le se¬ 
quenze arcade) premete FI. 


Il combattimento 

Il duello aereo avviene 
quando una unità della RAF 
armata (MUN 1), entra in 
contatto con l’unità nemica. 
In questo caso sentirete un 
segnale bitonale e la vostra 
unità lampeggierà. Se avete 
scelto il gioco con azione vi 
verrà chiesto di selezionare 
la battaglia. Muovete il cur¬ 
sore su una delle due unità e 
premete il pulsante di spa¬ 
ro. Vi troverete a bordo di 
uno Spitfire, nel bel mezzo 
di un combattimento aereo. 
Se il nemico attacca un 
obiettivo a terra, come un 
aeroporto o una città cam¬ 
bierà lo scenario e vi trove¬ 
rete a sparare con un can¬ 
none antiaereo. 


Fine di un giorno 

Al termine di un giorno di 
battaglia di ognuno dei tre 
giochi appare uno schermo 
con il rapporto del combat¬ 
timento con indicati il nu¬ 
mero degli aerei persi da 


ambedue le parti, il numero 
dei successi degli attacchi 
della Luftwaffe, ed il livello 
della vostra abilità di co¬ 
mandante in percentuale. 

Se state giocando il gioco 
più impegnativo (campa¬ 
gna) vi verrà indicato anche 
un punteggio sempre in per¬ 
centuale sulla vostra abilità 
media di comandante. 

Per abbandonare questo 
schermo dovete premere la 
barra spaziatrice. 


I rinforzi (Solo nel 
gioco campagna) 

Questa operazione è relativa 
solo al terzo gioco ed è fon¬ 
damentale per distribuire 
nuove forze in vista del nuo¬ 
vo giorno. 

Nella parte alta dello scher¬ 
mo avete il livello di abilità 
dei piloti che varia da eccel¬ 
lente a scarso in rapporto 
alla battaglia ed al grado di 
esperienza dei nuovi piloti 
che sostituiscono quelli ab¬ 
battuti. 

Nella parte bassa dello 
schermo, avete la lista com¬ 
pleta delle squadriglie con a 
fianco il numero degli aerei 
e la loro base di partenza. 

II massimo di aerei per ogni 
squadriglia è di 15. Quando 
il loro nome è in rosso signi¬ 
fica che mancano di unità, 
in blu sono in perfetta forza. 
Selezionate con il joystick la 
squadriglia da rinforzare e 
quindi premendo il pulsante 
di sparo assegnate le riser¬ 
ve. Quando iniziate un nuo¬ 
vo giorno tutti gli aeroporti 


e i radar saranno nuova¬ 
mente funzionanti ed ogni 
squadriglia riprenderà posi¬ 
zione nell’aeroporto ini¬ 
ziale. 

Alcuni consigli 

Oltre all’utilizzo della pausa 
per riflettere vi consigliamo 
di giocare sempre con la se¬ 
quenza arcade. Almeno sare¬ 
te responsabili di una vo¬ 
stra eventuale sconfitta. 

Fate in modo di infliggere 
forti perdite alla Luftwaffe 
ed inoltre difendete le città 
britanniche. I bombarda- 
menti diurni su Londra, Por¬ 
tsmouth, Ipswich e così via, 
vi faranno perdere prestigio 
nei confronti della popola¬ 
zione civile. 


Conclusioni 

I risultati finali della batta¬ 
glia d’Inghilterra furono di 
733 apparecchi distrutti per 
la Raf contro i 1733 della 
Luftwaffe. Un vero trionfo 
vista anche la drammatica 
situazione militare della 
Gran Bretagna. 

In quell’occasione il primo 
ministro Churchill disse la 
famosa frase: “Mai nella sto¬ 
ria tutto un popolo ha dovu¬ 
to un così grande debito a 
un così piccolo numero di 
uomini”. 

Questa la storia, a voi verifi¬ 
carla e confermarla nella si¬ 
mulazione evitando di esse¬ 
re spediti per punizione in 
groppa ai cammelli nel de¬ 
serto del Sahara. 
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La congruenza di Zeller è 
una complicata formula di 
previsione che calcola i 
giorni della settimana (Lu¬ 
nedì, Martedì, etc.) per una 
qualsiasi data. Con questa 
formula potreste, per esem¬ 
pio, trovare in quale giorno 
della settimana una persona 
è nata ed anche, se la vostra 
memoria non è buona, sape¬ 
re in quale giorno della set¬ 
timana cade un anniversa¬ 
rio. 

Questa che segue è la formu¬ 
la di Zeller: 

Z = INT(2.6*M-0.1) + G + 
A + INT(A/4) + INT(S/4) - 
2*S X = Z - 7*INT(Z/7) 

Il numero X è compreso tra 
0 e 6 perché tutti i multipli 
di 7 più piccoli di A sono 
sottratti da A. Questi nume¬ 
ri rappresentano i giorni 
della settimana nel seguen¬ 
te modo: 

0: Domenica 
1: Lunedì 
2: Martedì 
3: Mercoledì 
4: Giovedì 
5: Venderdì 
6: Sabato 

I numeri G, M, A e S sono 
definiti come segue: 

G: giorno del mese; 
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M: il numero del mese - ma 
non il numero corrente per¬ 
chè Gennaio e Febbraio sono 
i numeri 11 e 12 dell’anno 
precedente (con conseguen¬ 
ze sui valori di A e S descrit¬ 
ti più avanti). Marzo è il nu¬ 
mero 1, Aprile il 2, Maggio il 
3 e così via fino a Dicembre 
il 10; 

A: l’anno del secolo; 

S: il numero dei secoli, ovve¬ 
ro le prime due cifre 
dell’anno. 

Ad esempio, se la data è il 26 
Agosto 1983 si scrive 
26/08/83 ma per la formula 
di Zeller useremo G=26, 
M=6, A=83, e S=19. 
Sostituendo tali valori nella 
formula, si ottiene: 

Z = INT(2.6*6-0.1)+26+ 
83+INT( 83/4 )+INT 
( 19/4)—2*19 

= INT( 15.6-0.1 )+26+83 


+INT(20.75)+INT(4.75) 

-38 

= 15+26+83+20+4-38 
= 110 
e 

X = 110-7*INT(110/7) 

= 110-7*INT( 15.714285) 
= 110-105 
= 5. 

Perciò concludiamo che il 
26 Agosto 1983 era Venerdì. 

Il programma che segue usa 
la formula di Zeller per il 
calcolo del giorno della set¬ 
timana per una qualsiasi da¬ 
ta. Il vostro Commodore 64 
calcola i giusti valori di G, 
M, S, A richiesti per la data 
che voi introdurrete. Si os¬ 
servi che il programma ese¬ 
gue alcuni controlli perché 
la data da voi introdotta ab¬ 
bia senso e perciò il 30 Feb¬ 
braio 1983 non sarà accet- 


Ecco qui di seguito altri esempi che mostrano la notazione 
normale della data e quella per la formula di Zeller. 


NOTAZIONE 

NORMALE 


NOTAZIONE 

DIZELLER 



6 

M 

S 

A 

03/03/1947 

3 

1 

19 

47 

01/01/2000 

1 

11 

19 

99 

26/02/1983 

26 

12 

19 

82 

29/11/1984 

29 

9 

19 

84 









10 REM GIORNO DELLA SETTIMANA 
20 DIMA (12) , A$(12) : FORI « 1 T01 2 : RE ADA ( I.) ,A 
$(I ) :NEXTI 

30 F0RI«0TO6:READB$(I):NEXTI 
40 PRINTCHR$(147)"{8 SPCJGIORNO DELLA SE 
TTIMANA"CHR$(17) 

50 PRINT"QUESTO PROGRAMMA CALCOLA IL GIO 
RNO DELLA" 

60 PRINT"SETTIMANA PER UNA QUALSIASI DAT 
A SPECI- FICATA"CHR$(17) 

70 PRINT"SCRIVI LA DATA:"CHR$(17) 

80 A(2)»29:D*»0:INPUT" GIORNO, DA 1 A 31: 

";D:PRINT 

90 IFD< 1 0RD>31 ORDOINT ( D )THENPRINT , "PROV 
A ANCORA":G0T080 

100 M « 0: INPUT"MESE , DA 1 A 12 : ";M:PRIN 
T 

110 IFM< 1 ORM> 1 20RMOINT(M )THENPRINT , "PRO 
VA ANCORA":GOTOI00 

120 IFD>A(M )THENPRINT"IL MESE NON HA"D"G 
IORNI : PROVA ANCORA":GOTO80 
130 Y = 0: INPUT"ANNO : ";Y:PRINT 
140 IFY<15820RY>4902THENPRINT,"NON E' NE 
L PERIODO AMMESSO":G0T0130 
150 IFYOINT(Y)THENPRINT,"NON E' UN ANNO 
, PROVA ANCORA":G0T0130 
160 REM VERIFICA ANNI BISESTILI 
170 L-0:IFINT(Y/4)*4=YTHENL--1 
180 IFLANDINT(Y/10 0)* 1OO-YTHENL-O:IFINT( 
Y/400)*400-YTHENL--1 
190 A(2)-28-L:IFLTHENPRI NT”QUESTO E' UN 
ANNO BISESTILE"CHR$( 1 7) 

200 IFM«2ANDD>A(2)THENPRINT"28 GIORNI IN 
FEBBRAIO":GOTO80 

210 PRINT"IL";D;A$(M);Y;"E' / ERA 
220 REM CAMBIA FORMATO DEI DATI INTRODOT 
TI 

230 M-M-2:IFM<1THENM-M+12:Y-Y-1 
240 C-INT(Y/100):Y-Y-C*100 
250 REM CONGRUENZA DI ZELLER 
260 DAY«INT(2.6*M-0.1)+D+Y+INT(C/4)+INT( 
Y/4 )-2*C 

270 DAY-DAY-7*INT(DAY/7):PRINTB$(DAY)CHR 
$(17) 

280 PRINT,"(3 SPC}ANCORA? S/N" 

290 GETG$:IFG$<>"S"ANDG$<>"N"THEN290 
300 IFG$«"S"THENPRINT:GOTO70 
310 PRINTCHR$(147),"{3 SPC}ARRIVEDERCI " : 
END 

400 REM DATA 

410 DAT A 31 .GENNAIO,29,FEBBRAIO,31.MARZO, 
30,APRILE 

420 DATA31 .MAGGIO,30,GIUGNO,31 .LUGLIO,31 
.AGOSTO 

430 DATA30.SETTEMBRE,31 , OTTOBRE,30 , NOVEM 
BRE,31 .DICEMBRE 

440 DATADOMENICA,LUNEDI' .MARTEDÌ' .MERCOL 
EDI',GIOVEDÌ’,VENERDÌ'.SABATO 
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tata. Inoltre l’anno deve es¬ 
sere un intero compreso tra 
1582 e 4902. Infatti il Ca¬ 
lendario Giuliano fu intro¬ 
dotto nel 1582 in Europa, 
ma in Inghilterra, nelle Co¬ 
lonie inglesi e negli Stati 
Uniti fu introdotto solo nel 
1752. 

Il programma tiene conto 
automaticamente degli anni 
bisestili considerando che è 
bisestile l’anno il cui nume¬ 
ro è divisibile esattamente 
per 4, o per 400 purché non 
sia divisibile anche per 100. 
Perciò il 1990 non fu un an¬ 
no bisestile, mentre lo sarà 
il 2000. 

È possibile che voi abbiate 
già visto la formula di Zeller 
scritta in modo leggermente 
diverso. Spesso il primo ter¬ 
mine è scritto DJT(2.6*M-0.2) 
anziché INT(2.6*M-0.1) e 
questa seconda forma è usata 
a causa del modo in cui il Com¬ 
modore 64 calcola la parte 
INT era del numero. Provate 
con M=7 ed avrete 
lNT(2.6*7-0.2) = INT(18.2- 

0 . 2 ) 

= INT(18) 

= 18 

Comunque il Commodore 64 vi 
dà 17 come valore di 
INT(2.6*7-0.2) anche se chie¬ 
dendogli 2.6*7-0.2 vi stampa 
18 correttamente. 

Tratto dal libro “Matemati¬ 
ca e Commodore 64” 


17 










MOSAICO 


Questo adattamento di uno 
dei giochi più noti metterà a 
dura prova le vostre capaci¬ 
tà di ragionamento. 
“Mosaico” è la versione per 
computer di quei giochi ba¬ 
sati sullo spostamento dei 
quadrati numerati che face¬ 
vano impazzire la gente pri¬ 
ma dell’arrivo del Cubo di 
Rubik. Lo scopo del gioco è 
quello di riordinare i quindi¬ 
ci quadrati secondo un ordi¬ 
ne prescelto, facendoli sci¬ 
volare airinterno di una 
cornice. Le prime mosse so¬ 
no facili, ma col progredire 
il gioco diventa molto più 
complicato. Vi accorgerete 
di dover magari ricomincia¬ 
re da capo solo per mettere 
al loro posto gli ultimi qua¬ 
drati. 

Il gioco ha un timer che può 
arrivare fino a 23 ore, 59 
minuti e 59 secondi; con¬ 
trolla automaticamente se è 
stato raggiunto l’ordine 
esatto e permette di ripren¬ 
dere il gioco dal punto in cui 
l’avete lasciato o di ricomin¬ 
ciare da capo. 

All’inizio del gioco vi viene 
chiesto se volete un limite di 
tempo. Se rispondere “S” 
(per SI), dovete digitare il 
tempo limite su una sola li¬ 
nea, senza spazio o segni di 
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i oo 


1 1 0 

1 20 
1 30 

1 40 


1 50 
1 60 
1 70 
1 80 

1 90 
200 


210 

220 

230 

I 

240 

245 

250 

255 

260 

270 


POKE532 80,1 4:P0KE53281 ,6 :POKE55,1 76: 
POKE56,29:CLR:POKE54276,8:POKE54283, 
8 

POKE54277,0:POKE54278,255:POKE54284, 
0:POKE54285.255:POKE54296,15 
S-1 355 :SC-S + 54272:DIMA$(16) 
PRINT"{CLR}":G»1632:X-0:DX-1:P-55904 
:S1-54276:S2-54283:AD-1232:R=14 
PRINT"{CLR}{CUR.GIU}"TAB(11)"{3 SPC} 
MOSAICO{4 SPC}"TAB(50)"{17 CBM Y}{CU 
R .GIU}" 


REM TEMPO LIMITE, TASTI DI CONTROLLO 
PRINT"{LT .BLUE}{5 SPCjVUOI UN TEMPO 
LIMITE? "; : G0SUB270 
IFIN$<>"S"THEN240 

H=1 : INPUT"{HOME}{6 CUR.GIU}{2 SPC}0R 
E{2 SPC}MIN. SEC. (6 CIFRE ) ";T$ : IFLE 
N(T$)<>6THEN200 

IFLEFT$(T$,2)>"23"0RLEFT$(T$,2)<"0"T 

HEN200 

IFMID$(T$,3,2)>"59"0RMID$(T$,3,2)<"0 

"THEN200 

IFRIGHT$ (T$ , 2) > "59"ORRIGHT$ (T$ , 2X"0 
"THEN200 

PRINT"{CUR . GIU } TASTO PER MUOVERE IN 
SU': ";:GOSUB270:U$=IN$ 

PRINT"{CUR.GIU} {18 SPC}IN GIU': ";:G 
OSUB270:D$»IN$ 

PRINT"{CUR.GIU}{15 SPC}A SINISTRA: " 
; :G0SUB270:L$-IN$ 

PRINT"{CUR.GIU}{17 SPC}A DESTRA: ";: 
G0SUB270:R$=IN$ 

GOTO 310 

PRINT"{CBM +}";:WAIT198,255:GETIN$:P 
RINT"{CUR.SIN }"; :POKE 216,1 :PRINTIN$: 
RETURN 


REM ORDINE DA RAGGIUNGERE 
PRINT"{CLR}"TAB(43)"SCEGLI 
CHE VUOI RAGGIUNGERE" 


L'ORDINE 









.- 


MOSAICO 



320 PRINT"{CUR.GIU}{3 SPC}1 2 3 4 5 6 7 
8 9"SPC(23)"A B C D E F {RVS ONjSPAC 
E" 

330 PRINT: PRINTTAB(247)"ORDINE" 

340 F0RK-0T03:POKE1592+K,100 :POKE1 792 + K , 
99:P0KE55864+K,R:P0KE56064+K,R 
350 P0KE1631+KM0,103:P0KE1636 + K*40,101 : 
P0KE55903 + K»40,R:P0KE55908+K*40,R:NE 
XT 

360 FORI“1TOl6:POKEG»X,63:POKEP+X,1 
370 WAIT198,255:GETA$(I): FORL-I-1TOOSTEP 
-1 : IFA$(I)-A$(L)THEN370 
380 NEXT:IFA$(I)-" "THENF0RK-0T04:POKE55 
H71+K,15:NEXT:B2«32:GOTO420 
390 IF(A$(IX"1"0RA$(I)> ,, F")0R(A$(I)>"9" 
ANDA$(I)<"A")THEN 3 70 
4 00 B-VAL(A$(I)): B2-B + 48 : IFBTHENPOKE5541 
7♦ 2*B , 15:G0T0420 

ili 0 B-ASC( A$( I ))-64:B2-B:POKE55457+2*B,1 
5 








M20 POKEG + X,B2:X = X♦DX: IFX-4THENG-G+ 40 :P » 
P + 40 : X-0 
M 3 0 NEXT 
440 : 

450 : 

460 REM INIZIALIZZA L'AREA DI LAVORO 
470 PRINT"{HOME}":F0RI-0T064:PRINT"{4 SP 
C}"; :NEXT:PRINT"{HOME}"TAB(126)"MOSA 
ICO" 

480 FORK*0T03:POKE1192+K,100:POKE55464+K 
,R:P0KE1392+K,99:POKE55664+K,R 
490 P0KE1231+K*40,103:P0KE55503+K«40,R:P 
OKE1236+K*40,101:P0KE555O8+K»40,R:NE 
XT 

500 READA,B,C:IFA>-0THENP0KEAD+A,B:P0KE5 
55 0 4 + A ,C :GOT0500 

510 FORICIT0500:NEXT:P0KES1- 3.80 :P0KES1 , 
33 :PRINT”{HOME}"TAB(28)"{10 CUR.GIU} 
{RED}{WHITE} SVIA! {LT.BLUE}" 

520 F0RT-1T0300:NEXT:PRINT"{HOME}"TAB(28 
)"{10 CUR.GIU} {5 SPC}":P0KES1 , 8 :TI $ » 
"000000" 

530 PRI NT"{HOME}"TAB(25)"LIMITE: { C Y A N } " ; 

:IFT$-""THENPRINT"NESSUNO":GOTO580 
540 PRINTLEFT$(T$,2)":"MID$(T$,3»2)":"RI 
GHT$(T$,2)"{LT.BLUE}" 


550 

560 

570 

580 


REM LOOP PRINCIPALE 

PRINT"{HOME}TEMPO TRASCORSO:{WHITE}" 

LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT 

$(TI$,2)"{LT.BLUE}" 

IFH=1ANDT$<»TI$THEN750 

GETB$:J-31-PEEK(56320)AND31:IFB$-""A 

NDJ-0THEN580 


punteggiatura fra le cifre. 
Per esempio, per un tempo 
limite di 1 ora e 23 minuti 
scrivete 012300. 

Poi dovete stabilire l’ordine 
che volete raggiungere per 
vincere il gioco. Dopo averlo 
fatto la metà superiore dello 
schermo verrà cancellata ed 
apparirà il mosaico. 

Il tasto RETURN o il pulsan¬ 
te di fuoco vi permettono di 
fare una pausa momentanea 
prima di continuare il gioco, 
ricominciare o smettere de¬ 
finitivamente di giocare. Se 
vi fermate e poi riprendete a 
giocare, non si ha nessun ef¬ 
fetto sul tempo trascorso 
(visualizzato in cima allo 
schermo insieme al tempo 
limite). 

Per aiutarvi nel gioco, 
all’inizio potete selezionare 
vari tasti per i movimenti 
veso l’alto, il basso, sinistra 
e destra. Potete anche usare 
un joystick inserito nella 
porta 2. Il tempo limite è 
un’opzione di questa versio¬ 
ne; se non scegliete nessun 
tempo limite, sullo schermo 
viene visualizzato il tempo 
trascorso e “TEMPO LIMI¬ 
TE: NESSUNO”. 

Se riusite a mettere i qua¬ 
drati nel giusto ordine, sullo 
schermo appare il messag¬ 
li 










MOSAICO 


gio “HAI VINTO!", insieme 
ad una breve nota ed al tem¬ 
po impiegato. Se il tempo fi¬ 
nisce prima che abbiate ter¬ 
minato, sentirete un suono 
sgradevole. 

Tratto dal libro 
“Giochi fantastici con 
il C64” 
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610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 


IFB$-CHR$(13)0RJ-16THENWN-0:G0T0780 

IFB$-D$OR(JAND2)THENDR«-40:CK«100:GO 

T0660 

IFB$-L$0R(JAND4)THENDR-1 :CK-101 : GOTO 

660 

IFB$-R$0R(JAND8 )THENDR--1 :CK-103: GOT 
0660 

DR-40:'CK-99:IFB$OU$AND(JAND1)-0THEN 

580 

IFPEEK(S+DR)-CKTHEN580 

POKES,PEEK(S+DR):POKESC,PEEK(SC+DR): 
P0KES+DR,32:S-S+DR:SC-SC+DR 
F0RM-0T0120STEP40:FORN-0TO3:W«PEEK(A 
D + M*N)AND127:IFWOPEEK(l 632 + M>N)THEN 
580 

NEXT:NEXT:PRINT"{HOME}"TAB(23)"{5 CU 
R.GIU}{ C Y A N }{RVS ON}HAI VINTO!{LT.BL 
UÈ}":POKES1-3,0:POKES1,33:WN-1 
READN 1 ,N2 ,D:IFN1--1THENP0KES1 ,8:GOTO 
780 

POKES1-4,N1:POKES1-3,N2:FORT«1TOD:NE 
XT:G0T0700 


REM FINE DEL GIOCO 

PRINT"{HOME}"TAB(23)"{5 CUR.GIU}{WHI 
TE}{RVS ON } !HAI PERSO!{LT . BLUE}":POK 
ES1-3,10:POKES1,17:WN-1 
POKES2-3,60:P0KES2,129:FORT*1TO300 :N 
EXT:POKES2,8:POKES1,8 

TM$-TI$:PRINT"{HOME}"TAB(21)"{9 CUR. 
GIU} (1 ) RICOMINCIA" 

PRINTTAB(21 )"{CUR.GIU}(2) ABBANDONA" 
:IFWN-OTHENPRINTTAB(21)"{CUR.GIU}(3) 
CONTINUA" 

GETV$ : IFV$<"1"0RV$>"3"THEN800 
IFV$ *"1"THENRUN 
IFV$«"2"THENEND 
IFWNTHEN800 

PRINT"{H0ME}{8 CUR.GIU}": FORI-ITO6:P 
RINTTAB(21 )"{18 SPC}":NEXT 
TI$-TM$:G0T0580 


REM INIZIALIZZAZIONE E MUSICA 
DATAO,49,1 ,1 ,178,3,2,51,1 ,3,180,3 
DATA40,53,1, 41,1 82,3,42,55,1.43 
DATA184,3,80,57,1,81,129,3,82,2,1 
DATA83,131,3.120,4,1,121,133.3,122 
DAT A 6,1 ,1 23,32,3 ,-1 ,"1 .-1 
DATA 96.22,150,0,0,50,96,22,75,0.0,5 
0,96,22,75,49,28,175,96,22,115,49,28 
DATA 1 75,1 35,33,250,0,0,0,- 1 ,-1 ,-1 
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TOMBOLA 









1 000 
1010 
1 020 
1030 
10110 
1 050 
1060 
1 070 
1 072 
1 073 
1 0711 
1 075 
1 076 
1 090 
1 1 00 
1110 
1112 
1114 
1116 
1118 
1119 
1 1 20 
1 1 50 
1 1 60 
1 1 65 
1 1 70 
1 171 
1 172 
1 1 73 
1174 




1 1 75 


1 1 76 
1 1 80 




1 1 90 


REM**»»»******»**»»**»**»**** 

REM* GIOCO DELLA TOMBOLA 

REM* DI ANTONIO TOTA 

REM* TORINO 1985 

REM* <C 6 4 > * 

REM******************************** 
REM PROGRAMMA PRINCIPALE 

REM******************************** 
POKE 52,128 : POKE 56,128 : CLR 
POKE 56576,PEEK(56576) AND 252 OR 1 
POKE 53272,32 
POKE 6 4 8, ì 36 
POKE 649,0 
CSCHERMO-O 
CBASETAB-8 
CMARGINETAB-6 
CGRIGLIA-13 
CNUMERI-0 
CLITTERE-0 
CCURS-3 

C1-0 : IF CSCHERMO-O THEN C1-1 
C2-1 : IF CBASETAB-1 THEN C2-2 

DIM NTUMBOLA(90),TAVOLA(9,10) 

PRINT CHR$(147 ) 

PRINT CHR$(142);CHR$(8) 

POKE 53280,14 : POKE 53281,14 

DATA 8,8,8,8,8,8,8,8 

DATA 0,0,0,255,0,0,0,0 

DATA 8,8,8,255,8,8,8,8 

DATA 255,255,255,255.255,255,255.25 

5 

DATA 255,129,129,129,129,129,129,25 
5 

DATA 60,102,102,102,60,0,0,0 
DATA " ",<,0,P,Z,I,0,N,I,>, 

" " ,<,T,A,S,T,0,>,<,E,S,T,R,A,T,T,0 
• > 

DATA " " , E,S,T,R , A,Z,I,0,N,E,": 

",R,E,T'U,R,N," ",N,? 



1191 DATA " " 

1 200 DATA I,N,I,Z,I,0," " , G , I , 0 , C , 0 , " : ", 


n i» n ti it ti i il ti ii n ii n 

* 9 * 1 9 9 9 



Ecco finalmente compute¬ 
rizzata anche l’estrazione 
dei numeri della tombola. 
Era proprio necessario per 
ovviare alla noiosa routine 
alla quale doveva sottoporsi 
lo sfortunato gestore del ta¬ 
bellone che ogni volta dove¬ 
va “pescare” nel fatidico sac¬ 
chetto un numero alla volta 
col rischio di essere accusa¬ 
to di “gioco illecito”. Col no¬ 
stro programma, questo non 
accadrà più e i vari numeri 
verranno estratti automati¬ 
camente alla semplice pres¬ 
sione di un tasto senza per- 
ricolo che il tabellaro venga 
accusato ingiustamente. 
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TOMBOLA 


Il computer genera la tabel¬ 
la del gioco della tombola, e 
indica una sua eventuale 
vincita, come ambo, terno, 
quaterna, cinquina e tombo¬ 
la purché conseguita prima 
degli altri partecipanti. Per 
estrarre un numero attende¬ 
re circa 10 secondi oppure 
premere il tasto RETURN. Se 
un partecipante ha ottenuto 
una vincita, informare il 
computer premendo il tasto 
corrispondente alla iniziale 
della vincita e cioè: A per 
l’ambo, T per terno e così 
via. Per congelare il gioco 
battere P, per riprenderlo, 
premere un tasto. 


1205 
1210 


1 21 1 
1 220 
1 230 

1 240 
1 250 
1 260 
1 262 
1 263 
1 264 
1 265 

1 266 
1 267 
1 268 
1 270 
1 280 
1 290 
1 300 
1310 
1 320 
1 360 
1 370 
1 380 
1 385 

1 390 
1 1100 

1 in 0 
1 420 
1430 

1 1140 


DATA 

DATA 

ti n ti 


M,E,S,S t A,G,G,I t O,":" 

F,I,N,E," ",T,0,M,B,0,L,A,", 

n li II p il 
» I c I 


Il II II II II II II II II II 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


ii ii » ti 


* i A , M , B , 0 , * , " 11 
*,T,E,R,N,0,*,"" 
*,Q,U,A,T,E,R,N,A,* 

*,C,I,N,Q ,U,1 ,N,A , * 
*,T,0,M,B,0,L,A,*,"" 

POKE 56334,PEEK(5633 1 0 AND 254 
POKE 1 , PEEK(1 ) AND 251 
FOR CAR-0 TO 67 : FOR BYTE-0 TO 7 
POKE 32768+8«CAR+BYTE,PEEK(53248+8* 
CAR+BYTE) 

NEXT BYTE : NEXT CAR 

POKE 1,PEEK(1) OR 4 

POKE 56334 , PEEK(56334 ) OR 1 

FOR CAR-33 TO 38 

FOR BYTE-0 TO 7 

READ DEC 

POKE 32768+8*CAR+BYTE,DEC 
NEXT BYTE 
NEXT CAR 

FOR INSIEME-1 TO 19 
LINEA$-LINEA$+CHR$(99) 

NEXT INSIEME 

RVIDEO-24 : CVIDE0-10 : COL-2 : GOS 
UB 5260 
PRINT LINEA$ 

PRINT CHR$(144);TAB(10)"GIOCO DELLA 
TOMBOLA" 

PRINT CHR$(28);TAB(10)LINEA$ 

PRINT CHR$(144) 

PRINT TAB(6)"IL COMPUTER GENERA LA 
TABEL-" 

PRINT*TAB(6)"LA{2 SPCJDEL GIOCO DEL 
LA TOMBOLA," 

PRINT TAB(6)"E{2 SPC}INDICA{2 SPC}U 
NA SUA EVENTUALE" 

PRINT TAB(6)"VINCITA,{2 SPC}C0ME{2 
S PC } AMBO, TERNO," 

PRINT TAB(6)"QUATERNA, CINQUINA E T 
OMBOLA" 

PRINT TAB(6)"PURCHÉ' CONSEGUITA PRI 
MA DE-" 

PRINT TAB(6)"GLI ALTRI PARTECIPANTI 

I? 

• 

PRINT TAB(6 ) "PER{2 SPC } ESTRARRE{2 S 
PC}UN NUMERO AT-" 

PRINT TAB(6)"TENDERE CIRCA 10 SECON 
DI 0P-" 

PRINT TAB(6)"PURE PREMERE IL TASTO 
RETURN" 

PRINT TAB(6)"SE{2 SPCJUN PARTECIPAN 


Tratto dalla rivista “Bit” 
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15^0 

1 550 

1 560 

1 570 

1 580 

1 590 

1 600 

1610 

1615 
1 620 
1630 
1 640 
1 6115 
1 650 
1 660 
1 670 

1 680 
1 681 
1 685 
1 690 
1 700 
1 705 
1710 
1 720 

1730 

1790 

1 800 
1810 

1811 

1812 

1 820 

1 830 

1 840 
1 850 

1 860 
1 870 
1 880 




TE HA OTTE-" 

PRINT TAB(6)"NUTO{2 SPCjUNA VINCITA 
INFORMARE" 

PRINT TAB(6)"IL COMPUTER PREMENDO I 
L T A S - " 

PRINT TAB(6)"TO{2 SPC } CORRISPONDENT 
E ALLA INI-" 

PRINT TAB(6)"ZIALE DELLA VINCITA E 
CIOÈ*:" 

PRINT TAB(6)"A PER L'AMBO, T PER IL 
TERNO" 

PRINT TAB(6)"E{2 SPC} COSI'{2 SPCJVI 
A. PER CONGELARE" 

PRINT TAB(6)"IL{2 SPCJGIOCO BATTERE 
P, PER RI-" 

PRINT TAB(6)"PRENDERLO{2 SPCjPREMER 
E UN TASTO." 

PRINT 

GOSUB 5320 : GOSUB 4800 
GOSUB 4380 
GOSUB 4960 
POKE FO,0 

VINCITA-!- "<<PREMI UN TASTO>>" 
CVIDEO-11 

RVIDEO-23 : CAR-36 : COL-2 : RIP-18 
: GOSUB 5120 
CPVIDEO-11 : GOSUB 4420 

LS-400 : GOSUB 4350 
POKE 649,1 
GET TAST$ 

IF TAST$-"" THEN 1690 
POKE 649,0 
PRINT CHR$(147) 

POKE 53280 .CSCHERMO : POKE 53281 , CS 

CHERMO 

GOSUB 3150 

POKE 53265, PEEK(53265) OR 64 : POKE 
53282 .CMARGINETAB 
POKE 53281 ,CBASETAB 
RVIDEO-O : CAR-36 : COL-CSCHERMO : 
RIP-25 

FOR CVIDEO-O TO 3 : GOSUB 5200 : N 
EXT CVIDEO 

FOR CVIDEO-39 TO 35 STEP -1 : GOSUB 

5200 : NEXT CVIDEO 
RVIDEO-24: CVIDEO-O : RIP-40 : GOSU 
B 5120 : RVIDEO-19 : GOSUB 5120 
RVIDEO-O : RIP-19 : FOR CVIDEO-4 TO 
34 STEP 3 

CAR-33 : COL-CGRIGLIA 

IF CVIDE0O4 AND CVIDE0O34 THEN 18 

70 

CAR-101 : COL-C1 

GOSUB 5200 
NEXT CVIDEO 
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1890 CVIDEO-5 : RIP-29 : FOR RVIDEO-O T0 
18 STEP 2 

1900 CAR-34 : COL-CGRIGLIA 
1910 IF RVIDEOOO AND RVIDE0O6 AND RVID 
E0O12 AND RVIDE0O18 THEN 1930 
1920 CAR-101 : C0L-C1 

1930 GOSUB 5120 
1940 NEXT RVIDEO 

1950 RVIDEO-1 : CVIDE0-19 : RIP-17 : GOS 
UB 5200 

1960 CAR-35 : COL-CGRIGLIA : RIP-1 : FOR 
RVIDEO-2 TO 16 STEP 2 
1970 IF RVIDE0-6 OR RVIDEO-12 THEN 2020 
1980 FOR CVIDEO-7 TO 31 STEP 3 
1990 IF CVIDEO-19 THEN 2010 
2000 GOSUB 5120 
2010 NEXT CVIDEO 
2020 NEXT RVIDEO 

2025 RVIDE0-20 : CVIDEO-O : COL-CL ITTERE 
: GOSUB 5260 

2028 FR-1000 : GOSUB 5340 
2030 FOR RVIDE0-20 TO 23 
2035 PRINT TAB(5 ) ; 

2040 FOR CVIDEO-5 TO 34 
2050 READ CAR$ 

2055 IF C A R $ « " ? " THEN CAR$-CHR$(38 ) 

2056 IF C A R $ «" " THEN LS-20 : GOSUB 4350 

: GOTO 2080 

2057 POKE F0.33 

2060 LS-10 : GOSUB 4350 
2065 POKE FO,0 
2070 GOSUB 4350 
2080 PRINT C A R $ ; 

2090 NEXT CVIDEO 

2092 IF RVIDEO-23 AND CVIDEO-34 THEN 210 
0 

2095 PRINT 
2100 NEXT RVIDEO 
2110 IN IZIO-O 

2120 POKE 649,1 : GET TAST$ 

2130 IF TAST$-"" THEN 2120 

2140 POKE 649,0 : IF TAST$-"1" THEN 2330 

2150 GOSUB 3920 

2170 VINCITA$-"<PREMI 1>" 

2180 RVIDEO-23 : CVIDEO-25 : CAR-36 : CO 
L-CCURS : RIP-9 : GOSUB 5120 
2190 GOSUB 4420 
2210 GOTO 2120 

2220 RESTORE : FOR CAR-1 TO 168 : READ C 
AR$ : NEXT CAR 

2230 Jj-6 : FOR ESTRATT-1 TO 90 
2240 GOSUB 3300 
















2250 

2260 

2270 

2271 
2280 
2290 
2295 
2300 
2310 

2320 

2330 

23^0 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2551 
2560 

2570 

2580 

2590 
2600 
2610 
2612 
261 4 

2616 


IF TAVOLA(RTAV,CTAV)=0 THEN POKE FO 
,0 : GOTO 2290 

CAR-36 : COL-CCURS : RIP-2 : GOSUB 
5120 

POKE FL.V*(J*) : POKE FH,W%(J») : P 
OKE FO, 33 

J%-J%♦1 : IF J*«9 THEN J* = 6 

CAR-32 : GOSUB 5120 
NEXT ESTRATT 
POKE FO,0 


RVIDEO-21 : 
RVIDEO-23 : 
SUB 5120 
GOSUB 3150 
VINCITA$= n " 
INI ZI 0=1 
RVIDEO-23 : 
P-9 : GOSUB 


CVIDEO-30 

CVIDEO-24 


GOSUB 5120 
RIP-11 : GO 


>25 : CAR-32 


RI 


CVIDEO 
5120 

FOR NESTRAZ10=90 TO 1 STEP -1 
IF TAST$-"1" THEN 2400 
GOSUB 3360 

IF TAST$="1" THEN 2220 
T A S T $ = " " 

NCASUALE»INT(NESTRAZI0*RND(0))+1 
ESTRATT-NTUMBOLA(NCASUALE) 

FOR NUMERO-NCASUALE+1 TO NESTRAZIO 
NTUMBOLA(NUMERO-1)-NTUMBOLA(NUMERO) 
NEXT NUMERO 
GOSUB 3300 

ESTRATT$=STR$(ESTRATT) 
PRICYFRA$*MID$(ESTRATT$,2,1) 

IF LEN(ESTRATT$)=3 THEN 2530 
SECCYFRA$=PRICYFRA$ 

PRICYFRA$=" " 

GOTO 2540 

SECCYFRA $-MID$(ESTRATT$,3,1) 

FOR- NVOLTE" 1 TO 3 
FR-1500-300*NVOLTE 
POKE FO,33 
CAR-36 : COL-CCURS 
5120 

LS-20 : GOSUB 4350 
CAR-ASC(PRICYFRA$) 

RIP-1 : GOSUB 5120 
CAR-ASC(SECCYFRA$) 

GOSUB 4350 
NEXT NVOLTE 

IF ASC(PRICYFRA$)<>32 THEN 2620 
RVIDEO-21 : CVIDEO-31 : CAR-32 
SUB 5120 

CVIDEO-30 : CAR-ASC(SECCYFRA$) 

L-C2 : GOSUB 5120 


GOSUB 5340 


RIP-2 


GOSUB 


POKE FO , 0 
COL-CNUMERI 

GOSUB 5130 


GO 


CO 

















2618 GOTO 2640 

2620 RVIDEO-21 : CVIDEO-30 : CAR-ASC(PRI 
CYFRA$) : C0L-C2 : GOSUB 5120 
2630 CAR=ASC(SECCYFRA$) : GOSUB 5130 
2640 TAVOLA(RTAV,CTAV)«ESTRATT 
2650 D R = IN T ( (ESTRATT-1 )/1>0)~3*INT( (ESTRA 
TT-1 ) /30 ) 

2 6 60 DC-ESTRATT-1~5*INT((ESTRATT-1 )/5) 
2670 RO-RTAV-DR 
2680 CO-CTAV-DC 
2690 SOM-O 

2700 FOR CTAV = CO TO C0*4 

2710 IF TAVOLA(RTAV,CTAV)=0 THEN 2730 

2720 S0M=S0M*1 

2730 NE XT CTAV 

2740 IF AMBO OR S0MO2 THEN 2790 

2750 AMBO»-1 

2760 GOSUB 4160 

2770 GOSUB 4500 

2780 GOTO 3080 

2790 IF TERNO OR S0M<>3 THEN 2840 

2800 TERNO»-1 

2810 GOSUB 4160 

2820 GOSUB 4500 

2830 GOTO 3080 

2840 IF QUATERNA OR S0MO4 THEN 2890 

2850 QUATERNARI 

2860 GOSUB 4160 

2870 GOSUB 4500 

2880 GOTO 3080 

2890 IF CINQUINA OR S0MO5 THEN 2940 

2900 CINQUINA--1 

2910 GOSUB 4160 

2920 GOSUB 4500 

2930 GOTO 3080 

2940 IF CINQUINA-0 THEN 3090 

2950 RNUM-RTAV 

2960 FOR RTAV-RO TO RO + 2 

2970 IF RTAV-RNUM THEN 3020 

2980 FOR CT A V » CO TO CO + 4 

2990 IF TAV0LA(RTAV,CTAV)»0 THEN 3010 

3000 SOM-SOM*1 

3010 NE XT CTAV 

3020 NEXT RTAV 

3030 IF SOM015 THEN 3090 

3040 TUMBOLA»-1 

3050 GOSUB 4160 

3060 GOSUB 4500 

3070 GOSUB 4850 

3080 VINCITA»1 

3090 NEXT NESTRAZIO 

3100 GOSUB 3360 

3110 GOTO 2220 






TOMBOLA 


3120 rem*»»»»**»***»»**»»»**»****»*****» 

3130 REM SOTTOPROGRAMMI 

31 HO REM»******************************* 
3150 FOR NUMERO»1 TO 90 

3160 NTUMBOLA(NUMERO)=NUMER0 

3170 NEXT NUMERO 

3180 FOR RTAV-1 TO 9 

3190 FOR CTAV-1 TO 10 

3200 TAVOLA(RTAV,CTAV )«0 

3210 NEXT CT A V 

3220 NEXT RTAV 

3230 AMBO-O 

32 4 0 TERNO-O 
3250 QUATERNA-0 
3260 CINQUINA=0 
3270 TUMBOLA-O 
3280 RETURN 

3290 rem******************************** 

3300 RTAV-INT((ESTRATT-1 )/10) + 1 

3310 CTAV«ESTRATT-10*INT((ESTRATT-1)/10) 

3320 RVIDE0-2*RTAV-1 

3330 CVIDEO-3*CTAV+2 

3340 RETURN 

3350 REM******************************** 

3360 POKE 649,1 : FOR PAUSA-1 TO 500 

3370 GET TASTI 

3380 IF TAST|-"P" THEN 3430 

3390 IF TASTI <>"" THEN 3570 

3400 NEXT PAUSA : POKE 649,0 

3410 IF TUMBOLA THEN 3360 

3420 GOTO 4120 

3430 IF TUMBOLA THEN 3930 

3440 USCITI-VINCITA! 

3450 vincita|«"<pausa>" 

3460 CPVIDEO-26 
3470 GOSUB 4230 
3480 GET TASTI 

3490 IF TASTI»”" OR TASTI»"P" THEN 3480 
3500 VINCITAl-USCITl 

3510 RVIDEO-23 : CVIDEO-25 : CAR-32 : RI 
P»8 : GOSUB 5120 
3520 NOMUSICA-1 
3530 CPVIDEO-26+QUATERNA 
3540 GOSUB 4420 
3550 PGIOCO*-1 
3560 GOTO 3360 

3570 POKE 649,0 : IF TAST|«"1" THEN 4120 
3580 IF TASTI»"2" THEN 5080 
3590 IF TUMBOLA THEN 3930 
3600 IF ASC(TASTI)»13 THEN 4120 
3610 IF VINCITA THEN 3920 
3620 IF AMBO OR 91-NESTRAZI0<3 OR TAST|< 
>"A" THEN 3680 
3630 AMBO» - 1 
3640 VINCITA»! 
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TOMBOLA 


T AST$ < > 
3910 


3650 GOSUB 4160 
3660 GOSUB 5020 
3670 GOTO 3360 

3680 IF AMBO-O OR TERNO OR TAST$<>"T" TH 
EN 3740 
3690 TERNO»-1 
3700 VINCITA»1 
3710 GOSUB 4160 
3720 GOSUB 5020 
3730 GOTO 3360 

3740 IF TERNO-O OR QUATERNA OR TAST$<>"Q 
" THEN 3800 
3750 QUATERNA--1 
3760 VINCITA-1 
3770 GOSUB 4160 
3780 GOSUB 5020 
3790 GOTO 3360 

3800 IF QUATERNA-0 OR CINQUINA OR TAST$< 
>"C" THEN 3860 
3810 CINQUINA--1 
3820 VINCITA-1 
3830 GOSUB 4160 
3840 GOSUB 5020 
3850 GOTO 3360 

3860 IF CINQUINA-0 OR TUMBOLA OR 
"T" OR 91-NESTRAZIO<16 THEN 
3870 TUMBOLA--Ì 
3880 GOSUB 4160 
3890 GOSUB 5020 
3900 GOTO 3360 
3910 IF PGIOCO THEN 4120 
3920 USCIT$»VINCITA$ 

3930 VINCITA!»”<ERRORE>" 

3940 CPVIDEO-25 
3950 GOSUB 4230 
3960 IF INIZIO THEN 3980 
3970 RETURN 

3980 IF TUMBOLA-O THEN 4060 
3990 CPVIDEO-24 
4000 VINCITA$-"<PREMI 1/2>" 

4010 RVIDEO-23 : CVIDEO-24 : CAR-36 
L-CCURS : RIP-11 : GOSUB 5120 
4020 GOSUB 4420 
4050 GOTO 3360 
4060 VINCITA$-USCIT$ 

4070 RVIDEO-23 : CVIDEO-25 : CAR-32 
P-8 : GOSUB 5120 
4080 NOMUSICA-1 
4090 CPVIDE0-26+QUATERNA 
4100 GOSUB 4420 
4110 GOTO 3360 
4120 VINCITA-0 
4130 PGIOCO-O 
4140 RETURN 


CO 


RI 
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TOMBOLA 


1 


4i 50 
4160 
14170 
4180 
4190 
4200 
4210 
4220 
4230 

4240 

4260 

4280 

4300 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4421 

4422 

4430 

4431 

4432 
4440 
4450 

4455 

4460 

4462 


REM*##»***»*»***»*»**»»************ 

VINCITA!-"" 

FOR CAR-1 TO 10 
READ CAR$ 

IF C A R $ «"" THEN 4220 
VINCITA!-VINCITA!+CAR! 

NEXT CAR 

CPVIDE0-26+QUATERNA 
RVIDE0-23 : CVIDE0-24 : 

P-11 : GOSUB 5120 

FOR NVOLTE » 1 TO 3 
CVIDEO-CPVIDEO : CAR-36 
: RIP-LEN(VINCITA$) : 

GOSUB 4420 
NEXT NVOLTE 
GOSUB 4380 
RETURN 

REM**»*#**»*» 

FOR PAUSA-1 TO LS 
NEXT PAUSA 
RETURN 

FOR PAUSA-1 TO 50 
NEXT PAUSA 
RETURN 


CAR-32 : RI 


: COL-CCURS 
GOSUB 5120 


F% — 1 700 : IF VINCITA!-"” THEN 4470 
RVIDEO-23 : C0L-C2 : RIP-1 
FOR NCAR-1 TO LEN(VINCITA !) 
CVIDEO-NCAR+CPVIDEO-1 : CAR-ASC(MID 
!(VINCITA! ,NCAR, 1 ) ) 

IF CAR>64 THEN CAR-CAR-64 
GOSUB 5120 

IF NOMUSICA THEN 4460 

FA*«F*/256 : FB*-F*-FA**256 : POKE 

FL.FB* : POKE FH.FA* : POKE F0.33 

F$-F%+850 


NEXT NCAR 
POKE SR.249 
GOSUB 4350 
NOMUSICA-O 
RETURN 


POKE F0.32 
POKE SR.240 


LS-100 


>«*»»•* 


FOR NVOLTE-1 
J%-1 

IF TUMBOLA-O THEN 4540 

FOR RTAV-RO TO RO + 2 

FOR CTAV-CO TO CO+4 

IF TAVOLA (RTAV,CTAV)-0 THEN 4660 

GOSUB 3320 

LOC-3481 6*CVIDEO*40*RVIDE0 : AP-PEE 
K(LOC) 

AS-PEEK(LOC ♦1) 

CAR-36 : COL-CCURS : RIP-2 : GOSUB 
5130 

POKE FL.V*(J») : POKE FH,W*(J*) : P 
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C0L=C2 : RIP-1 : GOSUB 512 


OKE FO,33 
4610 Jt-J*+1 
4640 CAR-AP : 

0 

4650 CAR-AS : GOSUB 5130 : POKE FO,0 
4660 NEXT CTAV 

4665 J% = 1 : LS- 1 0 : GOSUB 4350 

4670 IF TUMBOLA-O THEN 4690 

4680 NEXT RTAV 

4690 GOSUB 4350 

4700 FOR RIP-1 TO 3 

4710 FOR FR-100 TO 800 STEP 35 

4720 GOSUB 5340 : POKE FO,33 

4730 NEXT FR 

4740 NEXT RIP 

4745 POKE FO,0 : GOSUB 4380 
4750 NEXT NVOLTE 
4760 GOSUB 4380 
4770 GOSUB 4800 
4-780 RETURN 

4790 REM******»****»***»»****»#»****»#** 
4800 FOR FR-1920 TO 160 STEP -80 

4810 GOSUB 5340 : POKE VL , FR/185 + 4 . 1 

4811 POKE FO,33 : LS--FR/15+80 : GOSUB 4 
350 

4820 NEXT FR 

4821 GOSUB 4350 : POKE FO,0 : POKE VL,15 
4830 RETURN 

4840 REM***** **************************** 

4850 GOSUB 4380 

4860 GOSUB 4960 : POKE FO, 0 

4870 FOR NVOLTE-1 TO 40 

4875 FR-3000-70*NV0LTE : GOSUB 5340 

4876 POKE FO', 17 
4880 COL-2 

4890 IF NV0LTE/2OINT (NVOLTE/2 ) THEN 491 
0 

4900 COL-CMARGINETAB 
4910 POKE 53282 , COL 
4915 LS-5 : GOSUB 4350 
4930 NEXT NVOLTE 

4935 POKE SR.249 : POKE FO,16 : LS-750 : 
GOSUB 4350 : POKE FO,0 : POKE SR,2 
40 

4940 RETURN 

4950 REM*****#***»*»»*****»*##*#*#*#*##* 
4960 FOR RIP-1 TO 3 
4965 FOR FR»100 TO 350 STEP 25 
4970 GOSUB 5340 ; POKE F0.33 : LS-10 : G 
OSUB 4350 
4980 NEXT FR 
4985 LS-50 : GOSUB 4350 
4990 NEXT RIP 

4995 POKE SR.249 : POKE F0.32 : POKE SR, 
240 













TOMBOLA 






5000 

5010 

5020 

5030 

5040 

5050 

5055 

5060 

5070 

5080 

5081 

5082 

5083 

5084 
5090 
5100 
51 1 0 
51 20 
5130 
51 40 

5150 

5160 

5170 

5200 

5210 

5220 

5230 

52*40 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5321 
' 5322 

5323 
532 ^ 
5330 
53^0 
5350 


RETURN 

REM******************************** 

GOSUB 4380 

FOR MUSICA-1 TO 80 

FR= 160-MUSICA/2 : GOSUB 5340 : POKE 
VL .13*MUSICA+15 : POKE FO,33 
NEXT MUSICA 

POKE FO,0 : POKE VL,15 
RETURN 

Bry*HHHHHH*HHHH»H***»»*» 

GOSUB 4800 

POKE 53265,PEEK(53265) AND 191 

POKE 56576,PEEK(56576) AND 252 OR 3 

POKE 53272,21 

POKE 648,4 

SYS 770 

END 

pr ./.♦•♦#**»»****»*»****»*#********* 

LOC = 3 - 816 + CVIDE0+40*RVIDE0 
FOR HCHAR-1 TO RIP 

POKE LOC.CAR : POKE L0C+20480,COL : 

LOC «LOC♦1 
NEXT HCHAR 
RETURN 

5 -V ♦♦♦♦♦****##****#*#*****»»»**»»«» 

LOC=3^:*6+CVIDEO+40*RVIDEO 
FOP. VCHAR-1 TO RIP 

POKE LOO.CAR : POKE LOC + 20480 , COL : 

LOC-LOC+40 
NEXT VCHAR 
RETURN 

R E V * * ♦ • •♦♦**####################### 

POKE -;-6,C0L : CURGIU$="" : FOR RIP 
*1 TO RVIDEO 

ci=:::s=:urgiu$+chr$(17) 

NEXT RIP 

PF: :-R$: 19);CURGIU$;TAB(CVIDEO) ; 

RETURN 

= 7 .. ♦»***»#*****#****»»*#»**** 


FOR REG-SI 
NEXT REG 
: W %(1 )-63 
V % ( 3 ) = 3 6 : 

: W 5 ( 4 ) - 3 8 


TO SI + 24 


PO 


: V%(2)-87 
WX(3)= 4 7 
: V X(5)■196 


W 


W 


SI-54272 
KE REG , 0 
VX(1) = 137 
X(2 ) =55 : 

VX - ) = 245 
«' X ( 5 ) » 3 0 

VX 5 -1-.1 : W X C 6 ) — 6 : VX { 7)=212 

X -’) = 9 : VX C 8 ) *27 : HX(8)-13 
FL-SI : F H * SI♦1 : FO-SI + 4 : AD=SI+5 

: SR=SI + 6 : VL-SI+24 
POKE AD,0 : POKE SR.240 : POKE VL,1 
5 : RETURN 

F=FR/.059605 : FAX=F/256 : FBX-F-FA 
J*256 : POKE FH.FAX : POKE FL.FBX 
RETURN 
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